From f4c0acdb93b18501aee1dc7b95966bed85f5b041 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Mon, 3 May 1993 03:35:01 +0000 Subject: [PATCH] * comint.el (comint-match-partial-pathname): Move "---" range in character class in regular expressions to the end of the character class; this way, it meets the POSIX regexp specs. --- lisp/comint.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index 00c820af4a8..faa27f64d4d 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1037,11 +1037,11 @@ Useful if you accidentally suspend the top-level process." (defun comint-match-partial-pathname () "Returns the filename at point or causes an error." (save-excursion - (if (re-search-backward "[^~/A-Za-z0-9---_.$#,=]" nil 'move) + (if (re-search-backward "[^~/A-Za-z0-9_.$#,=-]" nil 'move) (forward-char 1)) ;; Anchor the search forwards. - (if (not (looking-at "[~/A-Za-z0-9---_.$#,=]")) (error "")) - (re-search-forward "[~/A-Za-z0-9---_.$#,=]+") + (if (not (looking-at "[~/A-Za-z0-9_.$#,=-]")) (error "")) + (re-search-forward "[~/A-Za-z0-9_.$#,=-]+") (substitute-in-file-name (buffer-substring (match-beginning 0) (match-end 0))))) -- 2.30.2